home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 11 / CD Expert nº 11.iso / dkeeper / levels / map00001.old < prev    next >
Text File  |  1997-02-26  |  6KB  |  155 lines
  1. Rem Level 139 (level1)
  2.  
  3. SET_GENERATE_SPEED(250)
  4.  
  5. MAX_CREATURES(PLAYER0,10)
  6.  
  7. START_MONEY(PLAYER0,2500)
  8.  
  9. ADD_CREATURE_TO_POOL(FLY,8)
  10. ADD_CREATURE_TO_POOL(BUG,10)
  11.  
  12. CREATURE_AVAILABLE(PLAYER0,FLY,1,1)
  13.  
  14. ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
  15.  
  16. MAGIC_AVAILABLE(PLAYER0,POWER_HAND,1,1)
  17. MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
  18.  
  19. CREATURE_AVAILABLE(PLAYER_GOOD,TUNNELLER,1,1)
  20. CREATURE_AVAILABLE(PLAYER_GOOD,THIEF,1,1)
  21. CREATURE_AVAILABLE(PLAYER_GOOD,KNIGHT,1,1)
  22.  
  23. SET_CREATURE_FEAR(TUNNELLER,0)
  24. SET_CREATURE_FEAR(THIEF,0)
  25. SET_CREATURE_FEAR(KNIGHT,0)
  26.  
  27. CREATE_PARTY(KNIGHT)
  28. ADD_TO_PARTY(KNIGHT,KNIGHT,1,200,ATTACK_ENEMIES,0)
  29.  
  30. SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,KNIGHT,1)
  31. SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,THIEF,1)
  32. SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,TUNNELLER,1)
  33.  
  34. SET_CREATURE_MAX_LEVEL(PLAYER0,IMP,3)
  35. SET_CREATURE_MAX_LEVEL(PLAYER0,BUG,3)
  36. SET_CREATURE_MAX_LEVEL(PLAYER0,FLY,3)
  37.  
  38. SET_CREATURE_STRENGTH(KNIGHT,40)
  39. SET_CREATURE_ARMOUR(KNIGHT,40)
  40.  
  41.  
  42. REM *** START ***
  43. REM *** FLAGS ARE ALWAYS 0, BUT FOR CLARITY I'LL DO IT ***
  44. SET_FLAG(PLAYER0, FLAG0, 0)
  45.  
  46. IF(PLAYER0, GAME_TURN > 50)
  47.     CREATE_TEXT(1,"WELCOME TO DUNGEON KEEPER.  YOUR FIRST OBJECTIVE IS TO CREATE A TREASURE ROOM.  SELECT IT FROM THE ROOMS MENU AND LAY DOWN A 3X3 TREASURE ROOM IN THE EMPTY ROOM TO THE WEST.")
  48.     DISPLAY_OBJECTIVE(1,PLAYER0)
  49.     TUTORIAL_FLASH_BUTTON(6,-1)
  50.     SET_FLAG(PLAYER0, FLAG0, 1)
  51. ENDIF
  52.  
  53.  
  54. IF (PLAYER0, FLAG0 == 1)
  55.     IF(PLAYER0,TREASURE >= 9)
  56.         CREATE_TEXT(2,"WELL DONE.  PRESS THE RIGHT MOUSE BUTTON TO GET OUT OF ROOM LAYING MODE.  NOW MINE OUT ALL THE GOLD TO THE EAST BY TAGGING THE AREA WITH THE LEFT MOUSE BUTTON.  YOUR IMPS WILL DIG IT OUT AND PLACE IT IN THE TREASURE ROOM.")
  57.         DISPLAY_OBJECTIVE(2,PLAYER0)
  58.         SET_FLAG(PLAYER0, FLAG0, 2)
  59.     ENDIF
  60. ENDIF
  61.  
  62. REM *** BUILT TREASURE ROOM ***
  63. IF (PLAYER0, FLAG0 == 2)
  64.     IF(PLAYER0,TOTAL_GOLD_MINED >= 3000)
  65.         CREATE_TEXT(3,"YOU CAN PICK UP CREATURES WITH THE LEFT MOUSE BUTTON OR SLAP THEM WITH THE RIGHT.  SLAPPING THEM WILL MAKE CREATURES WORK HARDER.  CREATURES CAN ALSO BE PICKED UP FROM THE CREATURES MENU AND YOU CAN CARRY UP TO EIGHT IN YOUR HAND.")
  66.         DISPLAY_OBJECTIVE(3,PLAYER0)
  67.  
  68.         IF(PLAYER0,TOTAL_GOLD_MINED >= 5500)
  69.             CREATE_TEXT(9,"POSSESS CREATURES BY CHOOSING THE POSSESS SPELL FROM THE SPELLS MENU AND LEFT-CLICK ON THE CREATURE YOU WANT TO CONTROL.  RIGHT-CLICK TO GET BACK TO NORMAL VIEW.")
  70.             DISPLAY_OBJECTIVE(9,PLAYER0)
  71.         ENDIF
  72.  
  73.         IF(PLAYER0,TOTAL_GOLD_MINED >= 7100)
  74.             CREATE_TEXT(4,"WELL DONE.  IN PREPARATION FOR THE CREATURES WHO WILL SHORTLY BE ARRIVING INTO YOUR DUNGEON, LAY DOWN A LAIR IN THE AREA WHERE YOU MINED OUT THE GOLD.")
  75.             DISPLAY_OBJECTIVE(4,PLAYER0)
  76.             ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
  77.             TUTORIAL_FLASH_BUTTON(8,-1)
  78.  
  79.             IF(PLAYER0,LAIR >= 9)
  80.                 CREATE_TEXT(5,"NOW DIG TO THE FLASHING ENTRANCE TO THE NORTH.  YOUR IMPS WILL CLAIM THE ENTRANCE AUTOMATICALLY AND THIS WILL ENABLE CREATURES TO ENTER YOUR DUNGEON.")
  81.                 DISPLAY_OBJECTIVE(5,PLAYER0)
  82.                 SET_FLAG(PLAYER0, FLAG0, 3)
  83.             ENDIF
  84.         ENDIF
  85.     ENDIF
  86. ENDIF
  87.  
  88. REM *** BUILT LAIR ***
  89. IF (PLAYER0, FLAG0 == 3)
  90.     IF(PLAYER0,FLY >= 1)
  91.         CREATE_TEXT(6,"YOUR FIRST MINION IS A FLY.  A FAST CREATURE, BUT VERY WEAK.")
  92.         DISPLAY_OBJECTIVE(6,PLAYER0)
  93.         CREATURE_AVAILABLE(PLAYER0,FLY,1,0)
  94.         CREATURE_AVAILABLE(PLAYER0,BUG,1,1)
  95.  
  96.         IF(PLAYER0,BUG >= 1)
  97.             CREATE_TEXT(7,"A BEETLE HAS JOINED YOU.  ALTHOUGH SLOWER THAN FLIES, THEY MAKE BETTER FIGHTERS.  BEETLES, HOWEVER, NEED TO EAT.  DIG OUT A 3X3 ROOM TO THE SOUTH AND LAY DOWN A HATCHERY.")
  98.             DISPLAY_OBJECTIVE(7,PLAYER0)
  99.             CREATURE_AVAILABLE(PLAYER0,FLY,1,1)
  100.             ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
  101.             TUTORIAL_FLASH_BUTTON(7,-1)
  102.             IF(PLAYER0,GARDEN >= 9)
  103.                 CREATE_TEXT(8,"NOW ALLOW YOUR IMPS TO FORTIFY YOUR WALLS.  REMEMBER, YOU CAN SPEED UP YOUR IMPS BY SLAPPING THEM.")
  104.                 DISPLAY_OBJECTIVE(8,PLAYER0)
  105.                 SET_TIMER(PLAYER0,TIMER1)
  106.                 SET_FLAG(PLAYER0, FLAG0, 4)
  107.             ENDIF
  108.         ENDIF
  109.     ENDIF
  110. ENDIF
  111.  
  112. REM *** BUILT GARDEN ***
  113. IF (PLAYER0, FLAG0 == 4)
  114.     IF(PLAYER0,TOTAL_CREATURES >= 8)
  115.         SET_FLAG(PLAYER0, FLAG0, 5)
  116.     ENDIF
  117. ENDIF
  118.  
  119. REM *** HAS EIGHT OR MORE CREATURES ***
  120. IF (PLAYER0, FLAG0 == 5)
  121.     IF(PLAYER0,TIMER1 >= 600)
  122.         ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,1,DUNGEON,0,1,100)
  123.         ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,1,DUNGEON,0,1,100)
  124.         CREATE_TEXT(12,"BEWARE.  HEROES ARE ATTEMPTING TO BREAK INTO YOUR DUNGEON.  YOU CAN SEE THEM ON THE SMALL MAP IN THE TOP LEFT HAND CORNER OF THE SCREEN, OR ON THE BIG MAP BY PRESSING M.")
  125.         DISPLAY_OBJECTIVE(12,PLAYER0)
  126.         TUTORIAL_FLASH_BUTTON(37,-1)
  127.         IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
  128.             CREATE_TEXT(13,"CONGRATULATIONS.  YOU HAVE WON YOUR FIRST BATTLE.  HOWEVER, YOU WILL HAVE INCURRED THE WRATH OF THE LORD OF THE LAND.  PREPARE YOURSELF.")
  129.             DISPLAY_OBJECTIVE(13,PLAYER0)
  130.             SET_TIMER(PLAYER0,TIMER2)
  131.             SET_FLAG(PLAYER0, FLAG0, 6)
  132.         ENDIF
  133.     ENDIF
  134. ENDIF
  135.  
  136. REM *** HAS WON FIRST BATTLE ***
  137. IF (PLAYER0, FLAG0 == 6)
  138.     IF(PLAYER0,TIMER2 >= 500)
  139.         IF(PLAYER0,TOTAL_CREATURES >= 8)
  140.             ADD_PARTY_TO_LEVEL(PLAYER_GOOD,KNIGHT,1,1)
  141.             CREATE_TEXT(14,"THE LORD OF THE LAND HAS ARRIVED.  KILL HIM TO CONQUER THIS REALM.")
  142.             DISPLAY_OBJECTIVE(14,PLAYER)
  143.         ENDIF
  144.     ENDIF                            
  145. ENDIF                                
  146.  
  147. REM *** END LEVEL CHECK - DOESNT NEED A FLAG AS THIRD BATTLE IS ALWAYS KNIGHT ***
  148. REM *** HOWEVER IT MAY BE BETTER TO USE THE FLAG AND THEN TEST FOR PLAYER_GOOD, TOTAL_CREATURES == 0 ***
  149. IF(PLAYER0,BATTLES_WON >= 3)
  150.     CREATE_TEXT(15,"THE LORD IS DEFEATED.  WELL DONE.  YOU HAVE WHAT IT TAKES TO GO ON TO BECOME A TRULY EVIL DUNGEON KEEPER.")
  151.     DISPLAY_OBJECTIVE(15,PLAYER0)
  152.     WIN_GAME
  153. ENDIF
  154.  
  155.